% V20210224 - 7.7.17 wrap

INCLUDE "GW.bas"

ipsum$="Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua"

% Create page.
p=GW_NEW_PAGE()

% Prepare title bar string.
ti$=GW_ADD_BAR_TITLE$("Wrap, align & valign Test")
GW_ADD_TITLEBAR(p, ti$)

% Add button with looong label (visually truncated)
GW_ADD_BUTTON(p, ipsum$, "")

% Add shelf with 2 columns
% vertically align first column elements at the top + make column 50% wide
GW_USE_THEME_CUSTO_ONCE("valign=top style='width:50%'")
GW_SHELF_OPEN(p)
% Add button with long label but 'wrap' custo
GW_USE_THEME_CUSTO_ONCE("align=left wrap") % test "align=.. wrap" bugfix
GW_ADD_BUTTON(p, ipsum$, "")
GW_USE_THEME_CUSTO_ONCE("wrap align=right") % test "wrap align=.." bugfix
GW_ADD_BUTTON(p, ipsum$, "")
GW_SHELF_NEWCELL(p)
FOR i=1 TO 9
 GW_ADD_BUTTON(p, "Button #"+INT$(i), "")
NEXT
GW_SHELF_CLOSE(p)

% Render the page.
GW_RENDER(p)

% Wait for user input.
DO
  r$=GW_WAIT_ACTION$()
  POPUP r$

UNTIL r$="BACK"

END "End of wrap, valign & valign Test"